home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / Hackers / GeosHacker / make it a da (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  45 lines
  1. 100 REM I NEVER REINVENT THE WHEEL...
  2. 110 REM PARTS OF THIS PROGRAM MAY LOOK
  3. 120 REM FAMILIAR.... MERRY CHRISTMAS!
  4. 125 REM
  5. 130 REM CONVERT A PRINTER DRIVER
  6. 140 REM TO A DESK ACCESSORY.
  7. 150 REM FOOL THE COMPUTER WITH A
  8. 160 REM DISK EDITOR FIRST
  9. 170 OPEN15,8,15,"I0:":REM INITIALIZE DRIVE 8
  10. 180 REM NAME IS 'S'. BIG DEAL, HUH???
  11. 190 OPEN 2,8,2,"#" :REM ALLOCATE ANY OLD BUFFER
  12. 200 T$=CHR$(18):S$=CHR$(1):GOSUB 1000
  13. 210 GET#2,NT$,NS$
  14. 220 FOR E = 0 TO 7 :REM # OF FILENAMES
  15. 230 GOSUB 3000
  16. 240 IF D$="S" GOTO 280
  17. 250 NEXT
  18. 260 IF NT$="" GOTO 280
  19. 270 T$=NT$:S$=NS$:GOTO 200
  20. 280 IF D$="" THEN 880
  21. 290 DA$=CHR$(5) :REM FOR A D.A.
  22. 300 GOSUB 1000 :REM GET THAT SECTOR AGAIN
  23. 310 FOR I = 0 TO 32*E+1 :REM BORROW THIS
  24. 320 GET#2,B$
  25. 330 NEXT
  26. 340 FOR I = 1 TO 22:GET #2,B$:NEXT:REM SKIP TO TYPE
  27. 350 PRINT#2,DA$;:REM WRITE A 5 TO TYPE. MAKE ANYTHING A D.A.
  28. 360 GOSUB 2000
  29. 370 CLOSE 2
  30. 380 CLOSE15
  31. 390 PRINT"DONE.":END
  32. 1000 PRINT#15,"U1";2;0;ASC(T$);ASC(S$):REM READ IN A SECTOR
  33. 1010 RETURN
  34. 2000 PRINT#15,"U2";2;0;ASC(T$);ASC(S$):RETURN
  35. 3000 D$=""
  36. 3012 GET#2,B$:I=1
  37. 3013 IF B$="" GOTO3050
  38. 3014 IF ASC(B$)<>131 GOTO 3050 :REM LOOK FOR USER FILE TYPE
  39. 3016 GET#2,HT$,HS$:I=3
  40. 3020 GET#2,B$:I=I+1
  41. 3030 IF ASC(B$)=160 GOTO 3050
  42. 3040 D$=D$+B$:GOTO 3020
  43. 3050 FOR I = I TO 31:REM SKIP OUT DIRECTORY ENTRY
  44. 3060 GET#2,B$:NEXT:RETURN
  45.